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5 1 001 ‘NODULE RM3UPDATE (LANGUAGE (BLISS$32) , 

$ ¢ oe IDENT = Hose boo: 

; 00 )s 

3 ¢ ope : BEGIN 

: § B88 ! leueeuneueeeenanententeennerentenrerteetereerteteetentensentnannetnetentnenes 
; '® 

; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ” 
; 9 009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. - 
; 19 Bate : ~ ALL RIGHTS RESERVED. ¥ 
Ps 4 © 
3 \g O01e 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 1 153. 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 i 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: + Bote : ‘es TRANSFERRED. * 
3 ‘® + 
3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 ons) : is CORPORATION. * 
° . ® 
3 $§ $038 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 24 bose 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 2 0025 1 !« ’ 
; 26 0026 1 !* * 
3 St pose LL eee RARER AREA EAE R AAA AATEEAAAAAAEAAAAAERAAAAAAAAERARAREERERE 
b4 0 1 

; 9 it 94 1 !4¢ 

g 0 0030 1! 

3 1 it : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

: 3 ooas 1 ! ABSTRACT: 

; | 634 0034 1! High level update and other miscellaneous update specific 

; 0035 1! routines. 

; 0036 1! 

Oe 0037 1! 

3 38 0038 1 ! ENVIRONMENT: 

; 0039 1! 

3 40 0040 1! VAX/VMS OPERATING SYSTEM 

2s 6% 0041 1! 

: 4g 0042 1 !-- 

s 6 0045 1 

5 44 0044 1! 

; 645 0045 1 ! AUTHOR: Todd M. Katz RE-CREATION DATE: 22-Dec-1982 

:; 646 0046 1! 

s 67 0047 1! 

: 48 0048 1 ! MODIFIED BY: 

:; «649 Base 1! 

s 9 050 1! V03-026 JWT0184 Jim Teague 21-Jun-1984 

= 0051 1! Fix invalid RRV corrupt on problem. On an update, 

g 26 O3¢ 1! f the new record is onger than the old record, 

3 5 b3 1! a delete + insert operation is performed. However, 

: re 054 1! one thing that is different about the insert i 

3 5 055 1! that the new record has to have the same record 

; 8028 1! id as the old one. RMS saves the record id 

; of 0057 1! very early on in the update process, and never 
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16-Sep-1984 02:08:5 AX-11 Bliss-32 V4.0-742 Page 2 
13-80 8-1 382 96:09:28 RMS.SRCIRMSUPDATE .B832;1 . (1) 
looks at it ogee before stuffing it into the new 
record. If the desired record has been displaced 
by a bucket split since last_id has been saved, 
the record id of the new record will almost 
certainly be were To fix this, reevaluate 
lLast_id at a point considerably (ater in the 


update operation. 


v03-025 ywT0183 Jim Jenque 21-May-1984 
Fix cause of famous ‘'RFA-accessed record deleted’ 


enough for the record. RMS 

record at the last place it saw it ( LAS 

LAST_VBN ) by calling FIND_BY_RFA. If someone 

has split the bucket out from under us, and the 

desired record described by the LAST tie 

not in its ortgines bucket, FIND_BY_RFA will tell 

us RMS$_DEL. If that is the case, RMS will have 

to simply follow the record from it's RRV h 

original bucket using FIND BY_RRV. It used to 

give up if FIND_BY_RFA failed with RMS$_DEL. 
| 
| 
| 
| 


v03-024 MCNO003 Maria del C. Nasr 
Change Linkage of RMSNULLKEY to RLSJSB. 


vO3-023 TMKO014 Todd M. Katz 26-Mar-1983 
cpenee ine Linkage for RM$RU_JOURNAL3 from RLSRABREG_467 to 


04-Apr-1983 


RLSRABREG_67. 

V03-022 MCNO002 Maria del C. Nasr 24-Mar-1983 
More Linkages reorganization 

v03-021 RASO135 Ron Sc 17-Mar-1983 


haefer 
Fix spelling of RJRS_UPDAT -> RJRS$_UPDATE. 


vO3-020 TMK0013 Todd M. Katz 16-Mar-1983 
Change the Linkage for RM$RU_JOURNAL3 from RLSRABREG_67 to 
RLSRABREG_467. 


v03-019 TMKO012 Todd M. Katz 16-Mar-1983 
Change the symbol RMSR_UPDAT to RJR_UPDAT. 


v03-018 MCNO001 Maria del C. Nasr 28-F eb-1983 
Reorganize Linkages 
vO3-017 TMKO011 Todd M. Katz 12-Jan-1983 


8 
Add support for Recovery Unit Journalling and RU ROLLBACK 
Recovery of ISAM files. This involves modifications to 
RMSREPLACE, RMSUPDATE_SCAN, and RMSUPDATE3B such that: 


1. The RU Journalling is done before any permanent modifications 
are made to the file. 


2. No space is reclaimed as the result of SUPDATEs done within | 
Recovery Units. Inotherwards, if old SIDRs are to be deleted | 
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they are just marked RU_DELETE, and no space is reclaimed. 
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Likewise, if the new primary data record is smaller that the 
old record, the record is marked RU_UPDATE, it does not 
shrink in size (in fact it may even grow by one byte), and 
it is put into a special format so that the space maybe 
reserved in case the Recovery Unit must be aborted. 


3. If a Recovery Unit Rollback is in (repress. there is no need 
to insert new SIDRs which are still represented in the file 
(they are marked RU_DELETE). Instead the RU_DELETE bit is 
cleared in the SIDR element's control byte. 


v03-016 TMKO010 Todd M. Katz 05-Jan-1983 

RMSUPDATE3B was saving, zeroing, and then restoring the current 
NRP key of reference while the old SIDRs were being deleted. 
This is no longer necessary. 


v03-015 TMKOO09 Todd M. Katz 22-Dec-1982 
I have changed a sufficient amount of SUPDATE, including the 
basic algorithms, so that the audit trail has been invalidated. 
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LIBRARY ‘RMSLIB:RMS'; 
REQUIRE ‘RMSSRC:RMSIDXDEF'; 
Define default psects for code 


eee tt ED 


RMSRMS3(PSECT_ 
RMSRMS3(PSECT— 


Linkages 


LINKAGE 

_COMPARE_KEY, 
RROR_LINK1, 

RROR_LINK2, 


E 

is 

dee" 19 

=PRESERVE17 
RABREG | 
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- Preece rererererece 


Local Linkage 


RLSREPLACE = JSB () : 
GLOBAL (R_BKT_ADDR, R_IRAB, R_IFAB, R_IDX_DFN, R_REC_ADDR), 
RLSUPDATE_SCAN = JSB()~: 

GLOBAL (R_REC_ADDR, R_IMPURE, R_IDX_DFN, R_IFAB, R_IRAB, R_RAB); 
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EXTERNAL ROUTINE 
RMSCLEAN BD 


LSBKT 
RMSRU_JOURNAL3 
RMSUNPACK_REC 
RMSUPDDELTOM 


AX=-11 Bliss-32 V4.0<74 
RMS .SRCIJRMSUPDATE .B32; 


: RL$JSBO1, 
: RLSRABREG_67; 
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RMSREPLACE 14-Sep-19 MS.SRCIRMSUPDATE .B3 


ZSBTTL_ ‘RMSREPLACE' 
ROUTINE RMSREPLACE (NEW_REC_SIZE) : RLSREPLACE = 


lee 
i FUNCTIONAL DESCRIPTION: 


This routine updates the record pointed to by REC_ADDR if the new record is 
the same size or smaller than record are updated. Otherwise, this routine 

4 ca ate gat 1 the old record thus setting up the conditions for performing 
' a bucket split. 


If the SUPDATE is taking place within a Recovery Unit and the new record is 

: smaller then the old record by more than one byte then the record is marked 
RU_UPDATE and placed into a special format so that the old size maybe reserved 
! in case it become necessary to ROLLBACK recover the Recovery Unit. This 
special format is to have the size of the amount of space that is being 
reserved in the primary data record overhead's record size field while the 
true size of the record occupies the last two bytes of this reserved space. 


If the SUPDATE is taking place within a Recovery Unit and the new record is 
smaller that the old record by exactly one byte, then the primary data record 
must also be marked RU_UPDATE and placed into the special format. However, as 
tag the record in a special format would require it to grow in size by one 
yte. his routine does not replace the old with the new record. Instead, the 
old record is deleted, the state bit IRB$V_RU_UPDATE is set, and a 0 is 
returned ee that a strict replacement could not be done. When the new 
record is eventually inserted, the state bit IRBS$V_RU_UPDATE indicates that. 
its ore must be increased by two, and that it should be put into this special 
ormat. 


If the SUPDATE is foking place as a RU ROLLBACK Recovery operation and the 
new record is smaller than the old record by more than one byte, then the 
primary data record is also marked RU_UPDATE and is placed into the special 
format. This special formatting is not necessary if the new record is exactly 
one byte smaller than the old record. 


CALLING SEQUENCE: 
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3 
3 
$i : RMSREPLACE () 
2 ; INPUT PARAMETERS: 
; ; NEW_REC_SIZE - size of the new record 
$ * IMPLICIT INPUTS: 
2 31 BKT_ADDR - address of the primary data bucket 
$¢ 4 BKT$W_FREESPACE - freespace offset pointer 
25 31 IDX_DFN - address of the primary key index descriptor 
$2 H IDX$V_KEY_COMPR - if set, primary key compression is enabled 
5 31 - address of the IFAB 
5 31 IF B$W_KBUF SZ - size of a keybuffer ; 
5 31 IFB$B_PLG_VER - prologue version of the file 
25 32 IFB$V_RUP - if set, Recovery Unit is in progress 
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RMSREPLACE 
IFBSV_RU_RECVR 


IRAB 
IRBSL_KEYBUF 
IRBSL~RECBUF 
IRBSL—RBF 


REC_ADDR 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
BKT 


AB 
IRB$V_RU_UPDATE 
i ROUTINE VALUE: 


0 


1 " 


SIDE EFFECTS: 


_ADDR 
BKTSW_FREESPACE 
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19~3007 135% 96: 06:2 AX-11 Bits 32 V4.0-74 
14-Sep-1984 15:01:4 RMS.SRCIRMSUPDATE .B32; 
if set, RU ROLLBACK Recovery in progress 

address of the [RAB 

address of the coe keybuf fers 


address of the record buffer 
address of the user's record buffer 


—™~ 


address of the primary data record 


address of the primary data bucket 
freespace offset pointer 


- address of IRAB 


if set, build new record in special format 


if the new record did not replace the old record 
if the new record replaced the old record 


AP and keybuffer 5 are trashed. 
If STATUS = 0, then the old primary data record has been deleted, the 


bucket's freespace offset 
and keybuffer 


conta 


ointer has been updated to reflect this, 
ins the primary key of the record. 


If STATUS = 1, then the old primary data record has been replaced by the 
new record, and any difference in size between the two is reflected 
both within the record's size field, and in the bucket's freespace 


offset pointer. 


BEGIN 


EXTERNAL REGISTER 
CR AENI 

“IFAB_STR, — 

“TRAB-STR 


STR, 
R-REC_ADDR_STR; 
GLOBAL REGISTER 
R~ IMPURE, 
R~BDB; 


BUILTIN 
AP; 


LOCAL 


Page 
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RM3UPDATE 18-Sep-1984 96 :06:? AX-11 Bits -32 V4.0-742 Page 7 
14-Sep-1984 15:01:4 RMSUPDATE.B32;1 | 


v04-000 RMSREPLACE RMS.SRC (2 

3: 315 037 DIFFERENCE : SIGNED, H 
; 316 7 RECORD_OVHD, ; 
3 Sif 4 STATUS : 
: 318 1 OLD_REC_SIZE, | : 
; 3 Hf OLD_REC_ADDR; : 
; sf 0 rf: ; Retrive the size of the old record. : 
; $8 O38 BEGIN ; 
; $2 0387 ; 
52 $389 LOCAr EC SIZE 
; 359 $390 ‘i : 
; 328 0391 RECORD _OVHD = RMSREC_OVHD(O; REC_SIZE); : 
s Sev 0396 OLD_REC_SIZE = .REC_SIZE; | : 
; 330 039 OLD-REC_ADDR = .REC_ADDR + .RECORD_OVHD; : 
; $3) Bao : END; : 
3 335 0396 : If the key is compressed, save in key buffer 5 the key of the record : 
; 334 0397 2 ! that will be deleted, including the compression overhead. This might : 
; $32 ta: 2 1 be used by RMSEXPAND_KEYD Later. : 
: $30 Bent ; IF .IDX_DFNCIDXS$V_KEY_COMPR) : 
: $20 94 § RMSMOVE (.(.OLD_REC_ADDR)<0,8> + 2, .OLD_REC_ADDR, KEYBUF_ADDR(5)); : 
; «341 0404 2 ! Figure out what the difference in records sizes is. : 
3 She 0405 2 : : 
; 343 0406 2 DIFFERENCE = .OLD_REC_SIZE - .NEW_REC_SIZE; ; 
3; 344 0407 2 $ 
; 345 0408 2 ! If the record will grow in size as a result of po tag updated, setup : 
: 346 0409 2 : so the old record can be removed entirely from the bucket and for : 
; 4 Reid § } the split of the primary data bucket in case it becomes necessary. | : 
3 6349 0412 2 : If the record will shrink in size by one byte as a result of being updated : 
; 350 0413 2 : and the process is currently in a Recovery Unit, then also setup so that : 
; 351 0414 2 : the old record can be removed entirely from the bucket. In addition, set : 
3. gee 0415 2 ! the state bit IRB$V_RU_UPDATE so that when this record gets built, it : 
$ $27 pets § will be built in the special format that is required. : 
s 329 0418 2 IF .DIFFERENCE LSS 0 3 
; 308 0419 ¢ 3 
B fer 0420 (. IFABCIFBSV_RUPJ 3 
3 328 Bes) ; AN : 
s ao 04 ¢ -DIFFERENCE EQL 1) 3 
; $00 93 g THEN : 
; 361 0424 BEGIN 3 
; 706 0425 $ 
; 0426 IF .IFABCIFB$V_RUPJ $ 
3: 364 oh AN : 
, 369 428 -DIFFERENCE EQL 1 : 
: 366 oh 94 N 3 
3 368 Bs ? IRABCIRB$V_RU_UPDATE) = 1; : 
; 369 O43, DIFFERENCE = .OLD_REC_ADDR + .OLD_REC_SIZE - .REC_ADDR; : 
; 359 bez OLD_REC_ADDR = .REC_ADDR; : 


> 12 | 
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Be Se Se Oe Se Be Be Se Se Oe Se Se Be Ge Be Oe Be Se Se Se Se SH Se Se Se Se Se we FH Se Se Be Be Ss Se OF Se Se Se Se SEBS Oe See Se BH Se Se Oe HSH SH Se Be oe 


3 q b¢ 5 } Get primary key value into keybuffer 3 for use by RMSPUT_UPD_SPL. 

; oe Be ? REC_ADDR = .IRABCIRBSL_RBFI; 

s; Sf 439 AP = 3; 

; i 440 RMSRECORD_KEY (KEYBUF _ADDR(3)); 

; 379 tt§ STATUS = 0; 

: 380 044 REC_ADDR =" .OLD_REC_ADDR; 

; 381 0444 END 
3 fi 0445 ae : | 
; oS Bree 1 The new record will be able to fit into the space currently occupied 

: 384 447 ! by the old record either because the records are the same size, or the 

; 385 0448 ! new record is smaller than the old record. 

; 386 0449 : 

; Ser 0450 ELSE 

: $66 0451 BEGIN 

; 389 be eg 

; 390 045 LOCAL 

3 0454 BUFFER; 

5 305 0455 3 

; WwW 0456 3 ! Assume that the record will not be in special format and clear the 

; 394 0457 3 ! appropriate record control bit. 

; 395 0458 3 : 

>; 396 0459 3 REC_ADDRCIRC$V_RU_UPDATE) = 0; 

; 397 0460 3 y 

; $5 Beet ; The new record is smaller then the old record, so fix the record size. | 
; 400 bees 3 IF .DIFFERENCE NEQ 0 

: 401 0464 3 THEN 

; 402 0465 3 : 

; 403 0466 3 ! If the process is not currently within a Recovery Unit or the 

3; 404 0467 3 ! operation is mot a RU ROLLBACK Recovery operation; or, if the 
: 405 0468 3 ! current operation is a RU ROLLBACK Recovery operation but the 

Z 0469 3 ! record's size would only decrease by one byte, then just move 

3 che beae ; } in the new size into the record overhead's size field. 

; 409 0472 4 IF NOT (. IFABCIFB$V_RUP) 

; 410 04735 4 

3: 411 0474 4 - IFABCIFBSV_RU_RECVRI) 

3; $12 0475 3 

3; 413 0476 4 (. IFABCIFBSV_RU_RECVR) 

7 414 0477 4 AN 

: 415 ot 4 DIFFERENCE EQLU 1) 

3; 416 47 ; THEN 

3 hy bees (.OLD_REC_ADDR - IRCSC_DATSZFLD)<0, 16> = .NEW_REC_SIZE 
$ 
; 419 048 ! If the process is currently within a Recovery Unit then leave the 
: $20 048 ' record size field in the record overhead alone, and instead move 

: 421 0484 ! the new size into the last two bytes in the record's reserved 
3; 4 ¢ 0485 ! space. Set the RU_UPDATE bit in the record's control byte to 
3; 46 0486 ! indicate that the record is in a apes *es format, and zero 
; : r bc8 DIFFERENCE so that no space is reclaimed from the record. 

; 636 489 ! This pequence is also done if the current operation is a RU 
: 42 0490 ' ROLLBACK Recovery operation and the record shrinks by more than 
; 428 0491 ! one byte. 
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: 429 138 ; } 

; 450 49 ELSE 

>; 43) 494 4 BEGIN 

; 4 ¢ 495 4 REC _ADDRCIRC$V_RU_UPDATE]) = 1; 

3 4 bees 4 DIFFERENCE = 0; 

; 434 497 5 (,OLD_REC_ADDR + .OLD_REC_SIZE 

; 435 498 4 ~ IRCSC_DATSZFLD)<0,16> = .NEW_REC_SIZE; 

3 6 499 END; 

; 437 0500 

; 438 0501 ' Move in the new record. Where the new record is moved in from is 
: rhe beng prologue dependent. 

3: «(4461 0504 IF .IFABCIFBSB_PLG_VER] LSSU PLGS$C_VER_3 

: 44 0505 THEN 

3; «44 0506 BUFFER = .IJRABCIRBSL_RBFI 

> 444 0507 ELSE 

; ret £49 BUFFER = .IRABCIRBSL_RECBUF); 

3 ret 4 B39 OLD_REC_ADDR = RMSMOVE (.NEW_REC_SIZE, .BUFFER, .OLD_REC_ADDR); 

; 449 b2i§ STATUS = 1; 

: 450 051 END; 

; 451 0514 . 

; 452 0515 : If the new record grew in size delete it from the bucket and fix up the 
; 453 0516 : bucket's freespace offset pointer, If the record shrunk in size, then 
3: 4546 0517 § : shuffle all the trailing records in the bucket to take up this available 
; 4455 0518 ! space and fix up the bucket's freespace offset pointer. 

: 456 0519 2 : 

3; 4657 0520 H BEGIN 

; 458 0521 

3; 459 b25§ ; LOCAL 

: 460 052 LENGTH; 

: 461 0524 3 

: 46 0525 ; IF .DIFFERENCE NEQ 0 

; 46 0526 THEN 

> 464 0527 4 BEGIN 

: 465 0528 4 

; 466 0529 4 BKT_ADDRCBKT$W_FREESPACE] = .BKT_ADDRCBKT$W_FREESPACE] 

; rot 3330 ? - .DIFFERENCE<O, 16>; 

: 469 b256 5 LENGTH = .BKT_ADDRCBKTSW_FREESPACE] - (.OLD_REC_ADDR 

; 470 0533 4 - .BKT_ADDR)<0, 16>; 

: 471 0534 4 

3; «47 B22 & IF .LENGTH GTR 0 

3 67 0536 4 THEN 

3 474 0537 4 RMSMOVE (.LENGTH, (.OLD_REC_ADDR + .DIFFERENCE), .OLD_REC_ADDR); 
3; 475 0538 4 

3: 478 539 END; 

; 477 540 

; 478 541 ! If STATUS is 0, then the record grew in size, it has been deleted from 
3; 479 bee§ ! the bucket, and a regular record insert must be done. If the key is 

; 480 054 ' compressed, the key of the following record (if there is one) must be 
3 re} 0345 expanded to reflect the deleted record. 

; 48 546 IF .IDX_DFNCIDX$V_KEY_COMPR] 

3: 484 0547 AND 

: 485 0548 -STATUS EQLU 0 
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RMSUPDATE 


v04-000 RMSREPLACE - 

: 4 49 AND 

: car 2 3 .LENGTH GTR 0 

; 489 2 ; ma NOT .REC_ADDRCIRC$V_RRVJ 

: 491 0854 RMSEXPAND_KEYD (KEYBUF_ADDR(5), .REC_ADDR + .RECORD_OVHD); 
: 49 55 ND; 

: 494 §32$ ‘ 

: 495 0558 RETURN .STATUS; 

: 496 0559 

: 497 0560 1 END; 


-TITLE RM3UPDATE 
- IDENT WVO4-000\ 


-EXTRN RMSCLEAN_BDB, RMSCOMPARE_KEY 
~EXTRN Resp eLeTe SIDR, RMSEXPAND_KEYD 
~EXTRN FIND BY_RFA, RMSFIND_BY_RRV 
~EXTRN sata -AEXT KEY 

-EXTRN RMSINS-ALL_SIDR 

~EXTRN RNS! NSERT ODA. RMSINSS_OR_IDX 
-EXTRN RMSKEY_DESC, RMSMOV 

.EXTRN RMSNULCKEY, RMSPACK_REC 

. T_UPD_CHKS 


: RROR 
-EXTRN RMSPUT_UPD_FIN, RMSPUT_UPD SPL 
«EXTRN RMSRE CORD ID, RMSRECORD_KEY 


“EXTRN RMSRLSBKT> RM$RU_JOURNAL3 
“EXTRN RMSUNPACK-REC, RASUPDDELCOM 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 
00000 RMSREPLACE: 
USHR 


Oo 
o 
— 
ao 
co 
al 
wo 
wo 


P #°M<R2,R3,R4,R8,R11> 

08 C2 00004 SUBL2 #8, SP 
51 bs 00007 CLRL. sR 
006 30 00009 BSBW § RMSREC_OVHD 
50 00 0000C¢ MOVL RO RECORD OVHD 
51 DO 0000F M REC_SIZE, OLD REC_SIZE 
6— C1 BO0te ADDL3 RECORD_OVHD, REC_ADDR, OLD_REC_ADDR 
06 & 00 16 7 28TIDX_DFN), 1$ 
CA 3C 0001B MOVZWL 180(IFAB) 
40 OF 00 0 PUSHAL @96(IRAB)(RO3 
51 DD 00024 USHL  OLD_REC_ADD 
61 9A 00026 MOVZBL (OLB_REC_ADDR), -(SP) 
02 £0 0029 ADDL2 #2, Tt 
006 30 0002C BSBW RMSMOVE 
0c C9 O02F ADDL2 #12, SP 
AE C3 000 3 1$: SUBL3 NEW.REC_SIZE, OLD seopacaonge DIFFERENCE 
0B 19 000 BLSS os 

E1 00039 BBC 162(1F AB) 

D1 0003F CMPL OTRERENCE. Ht” 

12 00042 BNEQ 
02 £1 00044 28: BBC #2, 162(I1FAB), 3$ 
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v04= RMSREPLACE 127808-1 382 96:38:26 RMS.SRCJRM UPBAYE:O30¢4 9° (2) 
01 52 D1 0004 CMPL FFERENCE, #1 : 0428 : 
g 1 40 BNEQ BF : ; 
07 Ad 80 BF 8B 4F BISB2 #128, 7(IRAB) + 0430 : 
50 1 3 ¢ 4 3$: ADDL3 OLD_REC_SIZE, OLD_REC_ADDR, RO + 0432 ; 
5 0 . 2 8 SUBL3 RECTADDR, RO, DIFFERENCE : ; 
1 6 bd 0005c MOVL §REC"ADDR, OLD_REC_ADDR + 0433 ; 
4 58 AD OD F MOVL § 88(TRAB), REC~ADDR + 0437 ; 
¢ 03 63 MOVL #3, AP t 0439 ; 
5 00B4 CA 3C 00066 MOVZWL 180(IFAB) RO + 0440 : 
60 8940 F 00068 PUSHAW @96(1RAB) CRO : ; 
0006 0 006F BSBW = RMSRECORD_KEY : F 
5E 046 ¢ 00 ADDL2 #4 : F 
04 AE 04 0007 CLRL. = STATUS + 044 ; 
56 31 DO 0007 MOVL OLD_REC_ADDR, REC_ADDR + 044 ; 
5 11 00078 BRB 1$ : 0418 ; 
66 40 BF 8A 0007D 4$: BICB2 #64, (REC_ADDR) : 0459 ; 
52 d3 00081 TSTL DIFFERENCE + 0463 : 
ZA 1 00085 BEQL «6s BS : ; 
05 OOA2 CA 2 £0 00085 BBS #2, 162(IFAB), 5$ + 0472 ; 
OA 00A1 CA €9 00088 BLBC 161(IFAB), 6$ + 0474 ; 
0c 00A1 CA €9 00090 5$ BLBC  161(IFAB). 7$ + 0476 ; 
32 D1 90095 CMPL DIFFERENCE, #1 + 0478 : 
0 if 0098 BNEG 7$ : ; 
FE OA 20 AE BO O009A 6$ MOVW  NEW_REC_SIZE, -2(OLD_REC_ADDR) + 9480 : 
OE 11 0009F BRB By : : 
66 40 8F 88 OOOAl 7S: BISB2 #64, (REC_ADDR) : 0495 ; 
52 D4 O00AS CLRL ——dDIFFERENCE > 0496 | i 
FE A341 OF OOOA7 PUSHAB =2(OLD_REC_SIZE)COLD_REC_ADDR : 0498 | ; 
9E 4 AE BO O00AB MOVW NEW_REC SIZE SP)+ : 3 
03 00B7 CA 91 QOOAF 8$: CMPB sé 3TIFAB), #3 > 0504 ; 
06 1€ 000B4 BGEQU 9$ : ; 
50 58 Ad DO 90086 MOVL  88(IRAB), BUFFER > 0506 ; 
04 11 OOOBA BRB 10$ : : 
50 68 A DO 000BC 9$: MOVL  104(IRAB), BUFFER > 0508 ; 
03 BB OO0CO 10$: PUSHR #*M<RO,R1> ; 0510) 3 
28 OAE bp 900¢2 PUSHL NEW REC SIZE : : 
00006 30 000C BSBW  RMSMOVE : : 
5E o¢ CO 000¢8 ADDL2 #12, SP ; : 
51 0 00 000CB OVL RO, OLD_REC_ADDR : : 
04 AE 01 DO 000C MOVL #1. STATUS ; 0512 : 
2 D5 000D2 1158: TSTL DIFFERENCE : 052 : 
1E 13 00004 BEQL : : 
04 AS 52 Ag 0006 SUBW2 DIFFERENCE, 4(BKT_ADDR) : 0530 ; 
50 55 51 c 0 DA SUBL3 OLD _REC_ADDR, BKT~ADDR, RO : 0533. : 
53 04 AS D MOVZ2WL 4(BRT_ABDR), LENGTH ; | : 
53 50 CO OO0E ADDL2 LENGTH ; | : 
90 15 OOOE BLEQ 5 8333 | 3 
1 pd O€£ PUSHL OLD_REC_ADDR : 0537 | : 
6241 9F O00E9 PUSHAB (DIFFERENCE) COLD_REC_ADDR ; : 
53 p OEC PUSHL LENGTH : | : 
00006 OEE SBW Ss RMSMOVE : : 
SE 0¢ CO 000F ADDL2 #12, SP ; : 
1€ 1¢ «OA? 6 £1 000F4 12$: BBC #6, 28(IDX_DFN), 13% > 0546. : 
04 AE OF9 TSTL STATUS > 0548 | ; 
$3 DS OOOrE Gio : 0550. ; 
33 1 th BLEQ ty ; : 
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RMSUPDATE_SCAN 


; 500 62 1 ZSBTTL ‘RMSUPDATE SCAN’ 

; 9) $3 ! ROUTINE RMSUPDATE_SCAN : RLSUPDATE_SCAN = 

3 08 65 1 !+¢ 

> 504 66 1! 

; 2 44 } } FUNCTIONAL DESCRIPTION: 

: 268 23? 1! Compare the old and new records to determine which new keys are to be 
: 208 570 1! inserted and which old keys are to be deleted. If the file is a prologue 
; 509 8253 1; 3 file, then unpack the primary data record into the old record buffer, 
: 510 if 1! and if there are old alternate keys to be deleted and the file is a 

s 31) 573 1! prologue 1 or 2 file, move the primary data record into the old record 
3 \¢ 574 1! uffer as well. 

3s 5} 575 1! 

; 514 278 1 ! CALLING SEQUENCE: 

3 32 0577 1! 

; 216 0378 1/ RMSUPDATE_SCAN() 

s 3) 0579 1! 

; 518 0580 1 ! INPUT PARAMETERS: 

; 519 0581 1! NONE 

; 520 b286 1! 

. See 0585 1 ! IMPLICIT INPUTS: 

3; 3 ; 0584 1! 

;° 3S 0585 1 ! IDX_DFN - address of the primary key index descriptor 
> 526 0586 1! IDX$V_CHGKEYS - if set, keys are allowed to change 

3; tee 0587 1! IDX$B_DESC_NO - descriptor number 

: 326 0588 1! IDX$B_KEYS7 - size of key he ; 

3 44 #394 : IDX$SW_MINRECSZ - minimum size of record containing this key 
; 26? 0591 1! AB - address of IFAB 

; 2 : B26 : IFBS$B_PLG_VER - prologue version of file 

; 532 0594 1! IRAB - address of IRAB 

; 2 0595 1! IRB$B_CUR_KREF - current NRP key of reference 

; 534 0596 1! IRB$L_OLDBuF - address of old record buffer 

3 dae 0597 1! IRBSL_RBF - address of new record buffer 

; 536 0598 1! IRB$W_RSZ - size of new record 

3 Sav 0599 1! IRBSV_UPDATE_IF - if set, SPUT converted into an SUPDATE 

: 236 sry} : IRB$L_UPDBUF - address of update buffer 

; 540 Bene ;! REC_ADDR - address of primary data record 

3; «541 0603 1! 

: 206 0606 1 ! OUTPUT PARAMETERS: 

; 54 605 1! NONE 

; 544 ret 1: 

3; 545 0607 1 ! IMPLICIT OUTPUTS: 

: 546 0608 1! 

; 547 09 1! IRAS - address of IRAB 

; a78 19 : } IRBS$V_F IND_LAST - set to 0 

$ $56 \ : ROUTINE VALUE: 

3 226 0614 1! CHG - if prinery key changes key value at all, or any alternate key 

: 22 15 1! changes values and CHGKEYS not set 

3 336 16 1! SUC = otherwise 

3 359 617 1! 

: 556 0618 1 ! SIDE EFFECTS: 
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RM3UPDATE 1b-Se -1984 02:08:5 AX-11 Bliss-32 V4.0-742 Page 14. 
v04-000 RMSUPDATE_SCAN 1e-8ee=13be 99:09:48 — LAMS SREIRMBUPDAYE 63004 oa 
: 7 619 1! | : 
3 8 6 1! AP is trashed. 3 
3 9 621 1! Each oy? in the update buffer corresponds to an index with: ; 
; 560 6 ¢ 1} INS_NEW set if a new key value is to be inserte : 
; 561 06 1} OLD_DEL set if the old key value requires deletion. ; 
; ¢ be 6 3! The same flags for the primary key byte indicate whether any ; 
s; 3 625 1! alternate keys require_insertion or deletion at all. : 
> 564 6 § 1! If the file is a prologue 3 file then the old record has been unpacked : 
; 565 6 1 ! into the old record buffer. : 
> 366 628 1! If the file is a prologue 1 or 2 file, and there are old altenate keys : 
; 567 0629 1! to be deleted then the old record has been moved into the old record ; 
; 568 06350 1! buffer. 3 
; 569 0631 1! 3 
3; oO 06 § 1 !-- 3 
: 371 0633 1 | : 
; 276 0634 BEGIN 3 
g 57 0635 3 
; ee 0636 EXTERNAL REGISTER 3 
3; 575 0637 R_IDX_DFN_STR, F 
; 576 0638 “IFAB_STR, 3 
» Se 0639 R_ IMPURE $ 
; 578 0640 R-IRAB_STR, ; 
; 579 0641 R_RAB, 3 
; 580 0642 R-REC_ADDR_STR; ; 
; 581 064 3 
3 o8¢ 0644 BUILTIN 3 
; #58 0645 AP; 3 
; 584 0646 3 
; 585 0647 OCAL 3 
; 586 0648 OLD_REC_ADDR, ; 
3 Ser 0649 OLD_REC_SIZE : WORD; 3 
; 588 0650 $ 
; 589 0651 !' Retrieve the size of the old record, as it is in the bucket, and set : 
; 590 bees ! up a pointer to the old data record itself. 3 
; 591 065 ! F 
3 236 0654 BEGIN 3 
; 39 0655 3 
3; 594 0656 LOCAL 3 
; 595 0657 REC_SIZE; : 
; 596 0658 : 
; 597 0659 OLD_REC_ADDR = .REC_ADDR + RMSREC_OVHD(0; REC_SIZE); ; 
: 598 0660 OLD_REC_SIZE = .REC_SIZE; 3 
; 599 0661 END; 3 
; 600 8686 3 
3; 601 66 ! If the file is a prologue 3 file, then the old record must be unpacked : 
; O08 0664 ! into the old record buffer. Reset the pointer to the data portion of the 3 
; ¢i Bee? } old record so that it points into the old record buffer. ; 
; 605 0667 IF .JFABCIFB$B_PLG_VER] EQLU PLGSC_VER_3 3 
3 668 THEN $ 
; 60 669 BEGIN 3 
; 608 0670 | ; 
; 609 p07) GLOBAL REGISTER 3 
; 610 67 R_BKT_ADDR; ; 
3 611 67 | ; 
; ol¢ 674 LOCAL 3 
: 61 0675 SAVE_REC_ADDR : REF BBLOCK;: | : 

| 

| 
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SAVE_REC_ADDR = .REC_ADOR; 
REC_ADDR7= .OLD_REC_ADDR: 
OLDIREC_ADDR = TIRABCIRB$L_OLDBUF) + 2; 


! If this record is marked RU_UPDATE then the Last two Bytes of the 
' reserved space of the record contain the actual size o 


' 
iF_.SAVE_REC_ADDRCIRCS$V_RU_UPDATE) 
THEN 


~wM 


ee 


the record. 


OLD_REC_SIZE = .(.REC_ADDR + .OLD_REC_SIZE = IRCSC_DATSZFLD)<0,16>; 


! If this operation is a $PUT converted into an SUPDATE, then the 
! primary key of the old record neyoe found in keybuffer 2. Likewise, 
! if this is a SUPDATE and RMS pos 

} prtaccy key of reference although not by a $FIND, then the primary 
} scan must be done to re-expand the primary key. 


if _.IRABCIRBSV_UPDATE_IF] 
THEN 


AP 
ELSE 
IF  JRABCIRGSB_CUR_KREF J EQLU 0 


Be - IRABCIRBS$V_F IND_LASTJ 


AP = 1 
ELSE 
AP = 0; 


OLD_REC_SIZE = RMSUNPACK_REC (.OLD_REC_ 
C. JRABCTROSL OLDBUFJ)<0,T6> = .OLD-REC_ 


ADDR, .OLD_REC_SIZE); 
“RECSIZE 

REC_ADDR = .SAVE_REC_ADOR 

END? 


IRABLIRBSV_FIND_LAST] = 0; 


! If the primary key has changed, return an error. This comparison does 
not have to be done if the operation is an UPDATE_IF. 


if NOT .JRABCIRBS$V_UPDATE_IFJ 
THEN 


BEGIN 
AP = 0; 
IF RMSCOMPARE_KEY (.OLD_REC_ADDR 
- TRABLIRBSL RBF J 
.1DX_DFNCIOR$B_KEYSZ]) 


THEN 
. RETURN RMSERR (CHG); 


The INS_NEW and OLD_DEL flags for the first byte of the update buffer 
(which would be for key 0) are used to indicate whether any inserts or 
deletes are to be done at all. Zero these. 
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BBLOCKC. IRABCIRBSL_UPDBUFJ, UPDSB_FLAGSJ = 0; 


! Process all of the alternate keys determing whether the alternate key has 
changed, the old key must be deleted, and a new key must be inserted. 


WHILE RMSGET_NEXT_KEY() 


BEGIN 


LOCAL 
UPD_BUF ADDR : REF BBLOCK; 


Point to the update buffer associated with this index. 


UPD _BUF_ADDR = ,JRABCIRBS$L_UPDBUF] + .IDX_DFNCIDX$B_DESC_NOJ; 
UPD_BUF _ADDRCUPD$B_FLAGSJ = 0; 
AP = 0; 
! Set the flag INS_NEW for this key cf reference if the ney is present 
! in the new record, pisregards toe for the time being whether the key 
is present in the old record and whether the two keys are the same. 
if - IRABLIRBSW_RSZJ GEQU .1DX_DFNCIDX$W_MINRECSZJ 

atta (. IRABCIRBSL_RBF J) 

UPD_BUF __ADDRCUPD$V_INS_NEW] = 1; 
Determine whether this same key was present in the old record. 
iF (OLD REC SIZE GEQU .IDX_DFNCIDX$W_MINRECSZ) 


RMSNULLKEY (.OLD_REC_ADDR) 
THEN 


! If the key was present in the old record but is not present in 
! the new record then flag that the old key for this key o 
reference should be deleted. 


IF NOT .UPD_BUF_ADDRCUPDS$V_INS_NEW) 
UPD_BUF __ADDRCUPD$V_OLD_DEL) = 1 
If the key is present in both records then compare the two keys. 


ELSE 
BEGIN 
AP = 0; 


! If there are keys present in both records but they are 

! different then Lag that there is a new sy to be inserted 
(already has been done) and an old key to be deleted for 
this key of reference. 


F RMSCOMPARE_KEY (.OLD_REC_ADDR 
 IRABCIRBSL_RBFI, 


' 
i 
i 
i 
: 
I 


RMS .SRCIRMSUPDA 


12 


i 
RMSUPDATE_SCAN ereeen13Be 98:09:28 «HAMS SaPSAsSoBe AYE 83567 


00.09 09 C9 C0 C9 00 C9 Go CD CO CD CO I~ 
—— $OQOOCDOCOOOCOOVWD 


SSNS NSS SSN 
AON NAUIIUTUIU 
WN "OC OCOnNOuUSWH—Ow”O 


PON NINIPINIWIWINWIWIWIWIRPINIPINININININIWWWWWWWAWNI NWN BP RE REE 


Be Se Se Se Be Se Ge Se Fe Se Ge Se Ge Se Se Ge Ge FH Se Ge FH Se FF Se Se Se Se SF Ge SH Se SF Oe Se Ss SF Se Se HSS 5 SHH Ss Oe Ss SH Se SH Sees 


SLSSSSSSRoososo so 5oGoGo GoGo Go Goo soso HHS oooooooennoooooe 


0.0009 0d 00 Cd G0 G0 C9 C9 0d 09 09 OD CD 0d Cd OD OD OD C9 OD CD CD CO CD CD CD 
SOWONANEWN —$ OOONAUES WN O OONOAOUES WN OO OONOAUEFWUR OO OONOUSE 


FWA WII RIN NINININININIDN oe 


. - IDX _DFNCIDX$B_KEYSZ]) 
UPD _BUF _ADDRCUPD$V_OLD_DELJ = 1 
' if there are keys present in both records and they are 
! identical, then there is no need to insert or delete any 
} keys for this key of reference. 
ELSE 
UPD_BUF __ADDRCUPDSV_INS_NEW] = 0; 
END; 
! If the keys have changed between the two records, and this key of 
reference does not allow keys to change, return an error. 
iF .UPD_BUF_ADDRCUPD$SB_FLAGS] NEQU 0 
ae NOT .IDX_DFNCIDX$V_CHGKEYS] 
RETURN RMSERR (CHG); 
Summarize the key 0 flags to this point in the key-by-key comparison. 


BBLOCKC. IRABLIRBSL_UPDBUF], UPD$B_FLAGS) = 
-BBLOCK  IRABCIRBSL_UPDBUF], UPDSB_FLAGS) 


.UPD_BUF _ADDRCUPD$B_FLAGS) 


THE 


END; 


! If there are any old keys which will have to be deleted, and this is a 
prologue 1 or 2 file, then save the old record in the old record buffer. 


iF .BBLOCKC.IRABCIRBSL_UPDBUF], UPD$V_OLD_DEL 
THEN’ 2 ABEIFBSB_PLG_VERJ LSSU PLGSC_VER_3 
BEGIN 
GLOBAL REGISTER 


RMSMOVE (,OLD_REC_SIZE, .OLD_REC_ADDR, .IRABCIRBSL_OLDBUF) + 2); 
(- TRAB IRB$L_OLDBOFJ)<6,16> = .OCD_REC_SIZE; 


Reset to primary key descriptor and return success. 
RETURN RMSKEY_DESC(0) 
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#*°M<R2,R3,R4,R5> 


RMSREC_OVHD 
REC_ADDR, RO ote 


REC“SIZE, OLD_RE 
IgStiFABS ub 
REC_ADDR, SAVE_REC_ADDR 
OLD REC ADR, REC ADD 
#2,~108TIRABS, OLD_REC_ADDR 
6, (SAVE_REC_ADDRJ, 1 

O46 REC SIZE, -R 

-2(RO) CREC_ADDR 

a(SP)+, OLB_REC_SIZE 

ry 6({RAB)> 2$ 


NO 
cre 


LR 
“S$ 


195 (IRAB) 
#5, 4(IRAB), 3$ 
#1, AP 


7 


AP 
OLD_REC_SIZE, R1 
OLD-REC-ADDR, RO 
RMSONPATK_REC 

RO, OLD_REC_SIZE 
OLD_REC-SIZE, @108(IRAB) 
SAVE_REC_ADDR, REC_ADDR 
#32, 4(1RAB) 

oe 6(IRAB), 6$ 


32(IDX_DFN), RO 
88(IR 


OLD_REC_ADDR, R1 
RMSTOMPARE _KEY 


@160( RAB) 
RMSGET_NEXT_KEY 


16CIDX_DFN), UPD_EUs_ADDR 
100(IRAB), UPD_BOF_ADDR 
(UPD_BUF _ADDR) 


A 
86(IRAB), 34(1DX_DFN) 
88(IRAB) 

RMSNULLKEY 

#4, SP 


’ BS 
#1; (UPD_BUF_ADDR) 

O15 EC_SIZE> 34(1DX_DFN) 
OLD_REC_ADDR 

RMSNULLREY 


#4, SP 
RO, 118 


Pee Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Fe Ge Fe Fe Fe Ge Ge Se Be Ss Se Se Fe Fe Ge Se Fe Fe Se Se Fe Fe Se Ge Se Ge Fe Se Se Se Fe Se Be Se Ge B, 


RM3UPDATE 
v04-000 


07 


1B 


7E 


; Routine Size: 276 bytes, 


: Tre 0841 1 


RMSUPDATE_SCAN 


1c = A? 


64 B9 
64 89 
6C Ag 


6C 89 


Routine Base: 


1 
1 
ss 6 tus 
8 a} BA QOBA 
8 A9 DO 0008 
54 be 00C 
00006 00Cc 
50 ee 00C 
¢ 8 QOOCB 9$: 
11 Q00C 
01 8A 00000 108: 
65 3 00D3 11$: 
oc 1 Bebe 
01 ge 00D 
849C 8F 3C O00DC 12$: 
ef 11 QO0E1 
65 88 OO0ES 13$: 
93 11 O00E7 
01 £1 QOOED 14$: 
00B7 CA 91 popes 
14 1€ QOOF 
02 C1 O00FS 
54 DD OOOFA 
52.  3C OOOFC 
00006 30 QOOFF 
Oc CO 00102 
52 BO 00105 
7E_ 04 00109 15$: 
00006 30 00108 
04 CO O010E 
3C BA 00111 16$: 
05 00113 


RMSRMS3 + 0123 
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#1, (UPD_BUF_ADDR) 
( ADDR) 
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0 
A 
8(IRAB), -(SP) 
C_ADDR 
C“SIZE, -(SP) 
#i2, SP 
OLD REC_SIZE, @108(1RAB) 
RMSKEY_DESC 
SP 


a4, 
#°M<R2,R3,R4,R5> 
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XSBTTL '"RMSUPDATE3B' 

GLOBAL ROUTINE RMSUPDATE3B : RLSRABREG_67 = 


++ 
' 


FUNCTIONAL DESCRIPTION: 
High level update routine, using the following update algorithm: 


1. If the operation is an SUPDATE (and not a converted $PUT), then the 
current primary data record is retrieved using its RFA saved as part 
of the next record context. 


2. Record sizes, null key status, and comparisons between the new and 
old versions of the current record are used to set flags in the 
update buffer to determine which new secondary key values require 
insertion and which old secondary key values require deletion. At 
same time illegal key changes are detected. 


3. If the file is a prologue 3 file, then the old version of the current 
prjeery data record is saved in a. format within the old record 
uffer. If the file is a prologue | or 2 file, and there are old 
cto ol | keys to be deleted, then the old version of the current 
record will also be moved into the old record buffer. 


4. New secondary key values are inserted. This involves: 
a. Releasing the primary data bucket containing the current 
ery ata record. . 
b. Inserting the new secondary keys requiring insertion. 
c. Reclaiming the primary data bucket containing the current 
primary data record. 


i 

{ 

i 

! 

i 

i 

i 

i 

i 

i 

i 

' 

i 

i 

' 

i 

! 

i 

i] 

i 

i 

i 

i 

i 

; If the file is a RU ROLLBACK Recovered, then as the new SIDRs 
already exists in the file they are un-deleted instead of inserted. 
i] 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


5. The new version of the current record is inserted in place of the old 
version, and any primary data bucket splits that are required in 
order to make room for the new record are performed as is all 
required updating of the primary index. 


If the file is being RU Journalled and a Recovery Unit is in 
progress, then the record is not allowed to shrink in size, and if 
necessary even increases in size by one byte to reserve the space 
the record currently occupies in case the Recovery Unit is aborted. 


6. Old secondary key values requiring deletion are deleted. The keys 
themselves are extracted from the old version of the current primary 
data record which was saved earlier in the old record buffer. 

If the file is being RU Journalled and a oe af Unit is in 

progress, then the old SIDRs are just marked RU_DE 

is reclaimed. 
CALLING SEQUENCE: 


BSBW RMSUPDATE3B() 


LETE and no space 


— 


SP 
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RMSUPDATE3B 

0899 1 ! INPUT PARAMETERS: 

0900 1! NONE 

0901 1! 

0902 1 ! IMPLICIT INPUTS: 

0905 1! 

0904 1! IDX 

0905 1! POXSB _DATBKTYP 
0906 1! IDXS$SB_KEYSZ 
0907 1! 

0908 1! IFAB 

0909 1! IFB$B_PLG_VER 
0910 1! IFBS$B “Rt ORS 
0911 1! IFBSV— 

batg 1! IFBSV_ “RU PRECVR 
0913 1! 

0914 1! IRAB 

0915 1! IRB$V_ABOVELCKD 
0916 1! IRB$L_CURBDB 
0917 1! IRB$B_CUR_KREF 
0918 1! IRB$L_LOCR_BDB 
0919 1! IRBSL oe F 
0920 1! IRB$W_PUTUP_ID 
0921 1! IRBS$L_ -PUTUPD _VBN 
b35§ 1! IRB$W_RSZ 

0923 1! IRB$V_UPDATE 
0924 1! IRBSV_ _UPDATE_IF 
0925 1! IRBSL— ~UPDBUF 

0926 1! 

0927 1! REC_ADDR 

0928 1! 

0929 1 ! OUTPUT PARAMETERS: 

0930 1! NONE 

0931 1! 

0932 1 ! IMPLICIT OUTPUTS: 

0933 1! 

0934 1: IRAB 

0935 1! IRB$B_CACHEFLGS 

0936 1! IRB$V_IDX_ERR 

0937 1: IRB$W-LAST_ID 

0938 1! IRB$L_LAST_VBN 

0939 1! IRBSL_LST_RCMP 

0940 1! IRB$W_SRCAFLAGS 

$38) ! } IRB$B_STOPLEVEL 

0945 1 ! ROUTINE VALUE: 

0944 1! 

0945 1! See errors from: 
0946 1! 

0947 1! RMSF IND_BY_RFA 
0948 1! RMS$F IND-BY_RRV 
0949 1! RMSINS_ALL-SIDR 
0950 1! RMSINSS OR— 

B32) 1! RMSPUT_OPD-CHKS 
326 1! RMSPUT_UPD_F I 

0953 1! RMSPUT_ UPD SPL 

0954 1! RMSRLSB 

0955 1! RM$RU_ JOURNAL 3 
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$ep-1984 15:01:4 RMS .SRCIRMSUPDATE .B32; 


primary key index descriptor 
pe rene data bucket type 
size primary key 


address of IFAB 
prologue veresee of file 
format of records 
f set, pacexery Unit in progress 
if set, RU ROLLBACK in progress 


address of IRAB 

f set, shove level bucket is locked 
address of primary data bucket's BDB 
current NRP key of reference 
address of above level bucket’s BDB 
address of old record buffer 

1D of current primary data record 
VBN of current primary data record 
size of updated record 

if set, SUPDATE requested 
if set, converted $PUT requested 
address of update buffer 


address of current primary data record 


etecees of IRAB 

SH$V_LOCK maybe set 
set, error Updating index 
ID of record's last known position 
VBN of record's Last known position 
last zero-front compressed key record 
TRBSV -POSINSERT maybe set 
maybe set either to 0 or 1 
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v04-000 RMSUPDATE3B 1228e8- 1384 95:09:28 RMS -SREIRA UPDATE .B32;1 
; 895 956 1! RMSUPDATE_SCAN 

; 896 b989 1! RMSUPDELCOM 

; 897 0958 1! 

; 898 0959 1 ! SIDE EFFECTS: 

; 899 0960 1! NONE 

; 900 0961 1! 

; 901 b306 1 !-- 

; W 0965 1 

; Ww 0964 2 BEGIN 

> 904 0965 

; 5 096 BUILTIN 
| 906 96 AP 

; 907 968 TESTBITSS, 

; 908 0969 TESTBITCS; 

: 909 0970 2 

; 910 0971 2 LABEL 

s 91 0972 2 GETBACK; 

; 912 0973 2 

; Fis 0974 2 EXTERNAL REGISTER 

; 914 0975 2 COMMON_RAB_STR, 

; 915 0976 2 R_IDX_BFN_STR, 

; 916 0977 2 R_REC_ADDR_STR; 

. Pir 0978 2 

; 918 0979 2 GLOBAL REGISTER 

> 919 0980 2 COMMON_IO_STR; 

; 920 0981 2 

; 921 0982 2 : This routine maybe called as the result of a $PUT converted into an 
3 Vee 0983 2 : SUPDATE, or as the result of an SUPDATE. In the former case, this routine 
: 923 0984 2 ! would have been called with the primary data bucket locked, and RMS 

: 924 0985 2 ! positioned to the record to be updated so there would be no need to 

; 925 0986 2 ! perform this positioning. In the case of a straight SUPDATE, it would be 
3; 9eo 0987 § ! nooessary to perform this positioning. To differentiate between the two 
: Per 0988 ! cases, the IRAB bit IRB$V_UPDATE is set on SUPDATEs but cleared on 

: age 4d § ; converted SPUTS on entry fo this routine. 

; 930 0991 2 ! On ny errors from this pein on, the routine RMSCLEAN_BDB will be called 
: 931 0992 2 ! to make sure any locked buckets, including the bucket which might have 
$ 836 bay § } been locked during lockabove optimization, are realeased. 

> 934 0995 2 IF TESTBITSS (IRABCIRB$V_UPDATE)) 

s 935 0996 THEN 

; 936 0997 BEGIN 

: 937 0998 ’ 

: 938 0999 ; ! This is an SUPDATE so make sure IRB$V_ABOVELCKD is clear as there 

; 939 1000 ' cannot be any bucket locked at this time. Position to the record to 
: 940 1001 ! be updated. 

3; (941 100 : 

3 a6 100 IR,  RBSV_ABOVELCKD] = 0; 

: 94 1004 ; 

3 9446 1005 RETURN_ON_ERROR (RMSUPDDELCOM()); 

: 945 1908 END; 

; 946 100 ‘ 

3: 947 1008 ! Perform some common checks and set up the pr tnery ke Seser igter'. These 
: 948 1009 ! checks have already been performed if this is a RU ROLLBACK Recovery 

3; 949 1010 ! operation. 

; 950 1011 : 

; 951 1012 IF NOT .IFABCIFBSY_RU_RECVR) 
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THEN 
RETURN_ON_ERROR (RMSPUT_UPD_CHKS(), RMSCLEAN_BDB()); 


! Set up the update buffer indicating which alternate keys in the record to 
be updated will need inserting and which will need deleting. 


RETURN_ON_ERROR (RMSUPDATE_SCAN(), RMSCLEAN_BDB()); 
IRABCIRB$W_LAST_ID] = IRC$_ID(REC_ADDR); 


: Before any permanent modification to the file takes place, RU Journal this 
! operation if RU Journalling is enabled and the process is within a 
Recovery Unit. 


if .IFABCIFB$V_RUP) 
THEN 
BEGIN 


OCAL 
SAVE_REC_ADDR; 


SAVE_REC_ADDR = .REC_ADDR; 
REC_ADDR™= .IRABLIRBSL_OLDBUFJ + 2; 


RETURN_ON_ERROR (RMSRU_JOURNAL3 (RJR$_UPDATE, 
= {RAS Rest UTUS eH. 
. [RABLIRB$W-PUTUP™ ID 
. (, IRABLIRBSL_OLDBUF J)<0,16>), 
RMSCLEAN_BDB()); 


REC_ADDR = .SAVE_REC_ADDR; 
END: 


If “y new alternate keys will have to be inserted as a result of this 

! SUPDATE, then insert them at this time. To do so, first release the 
primary data bucket yo ety the old record, then insert all the 
alternate keys which need to be inserted, and finally re-position back to 
the old primary data record. 


' 
i 
' 
i] 
IF ,BBLOCKC. IRABLIRBSL_UPDBUF], UPDSV_INS_NEW] 


GETBACK: 
BEGIN 


' If RMS has porverase lLockabove optimization to lock the bucket from 

: the level above, then release this bucket whose BDB has been saved in 
! IRBSL_LOCK_BDB. This is because SIDR inserts will also try to perform 
} lockabove optimization. 


IF TESTBITSC (IRABCIRB$V_ABOVELCKDJ) 
RELEASE (IRABCIRB$L_LOCK_BDB)); 
! Release the primary data bucket containing the old record. Before the 


! bucket is released, the permanence bit is set so that RMS wil 
! attempt to keep this bucket in the cache (it will eventually try to 
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! re=-position back to the old data record). The setting of the 

! permanence bit here should not ruin the setting of permanence for 
' alternate index root buckets with extra buffers because the bit 
will be cleared when this bucket is reaccessed. 


BDB = .IRABCIRB$L_CURBDB); 
IRABCIRBSL_CURBDBJ = 0; 


IRABCIRBSL_LAST_VBN) = .BDBCBDBSL_VBNI; 
BDBCBDB$V_PRM) = 1; 
RMSRLSBKTTO) ; 


! If this is not a RU ROLLBACK Recovery operation then insert all the 
' alternate keys required by the new record. 


iF NOT . IFABLIFB$V_RU_RECVR 
RETURN_ON_ERROR (RMSINS_ALL_SIDR()) 


If this is a RU ROLLBACK Recovery operation then it oe Det neeeenacy 
to insert any new alternate keys since they already exist in the file. 
It is only necessary to position to and un-delete them. 
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LSE 
BEGIN 
5 ! Signal that the SIDRs poets ene to are to be un-deleted, and 

6 ! position REC_ADDR to the new record so that the alternate keys 

i } maybe extracted to be used in the positioning. 

39 [RABCIRB$V_RU_UNDEL] = 1; 
oe REC_ADDR =". IRABCIRBSL_RBF I; 
Oe§ ' Continue until all the alternate keys of the new record have been 
Ber un-deleted. 
045 WHILE RMSGET_NEXT_KEY() 
Beg DO 
048 ! If there is a new SIDR to be un-deleted for this key of 
Ben reference then do so. 
051 if .BBLOCKC.IRABCIRB$L_UPDBUF] + .IDX_DFNCIDX$B_DESC_NOJ, 
03¢ 1 UPD$V_INS_NEWJ 

05 1 THEN 
O38 : BEGIN 
056 1 ! Extract the alternate key from the new record, and 

8 : un-delete the corresponding SIDR. 

05 2 AP = 3; 

06 2 RMSRECORD_KEY (KEYBUF _ADDR(2)); 

06 2 ETE_SIDR(); 

S 

06 

06 

06 
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: 1069 1138 1 Retrieve the erimery hey desert 
3 ! Retrieve the primary key descriptor. ; 
: 1068 1159 i . 
: 94 1150 RMSKEY_DESC(0); 3 
; 1070 1131 : 
3 Hie 13 ¢ Clear IRBSV_ABOVELCKD as SIDR inserts may have left this bit set. : 
; 1078 1% ¢ IRABCIRB$V_ABOVELCKD) = 0; : 
; 190? 1 : } Position back to the current primary data record so it maybe changed. : 
F 1079 1138 4 BEGIN ‘ 
; 1078 1139 4 ‘ 
; 1079 1140 4 LOCAL F 
; 1080 1141 4 STATUS; | : 
; 17081 1178 4 3 
: 1086 1145 4 ! First, try to position back to the record us ine its last known 3 
; 108 1144 4 i Location. This should succeed unless the bucke containing the $ 
; 1084 1145 4 ' current record has split, and the record has moved. The bit : 
3; 1085 1146 4 ! IRBSV_NORLS_RNF is set, so that RMS can always clear the BDB's ; 
; 1086 1147 & ! permancence bit (set above before the bucket was released) regardless | : 
3 Hs Bb | : of whether it was successful at position to the current record or not. 3 
3; 1089 1150 4 IRABCIRBSB_CACHEFLGS) = CSHS$M_LOCK; $ 
: 1090 1151 4 IRABLIRBSV_NORLS_RNFJ = 1; $ 
3; 1091 1126 4 | 3 
3 1206 1153 4 AP = ,JRABCIRBSW_LAST_ID]; 3 
; 1093 1138 4 STATUS = RMSFIND-BY_RFA (.IRABCIRBSL_LAST_VBNJ); | ’ 
3; 1095 1156 4 ' If RMS was able to find the current record in its last know location | 3 
: 1096 1157 4 : verify, by comparing RFAs, that the record positioned to is in fact 3 
3; 1097 1158 4 ! the current record. If so, clear the BDB's permancance bit and : 
; 1098 1159 4 : proceed with the update; otherwise, a second attempt will made to : 
3; 1099 1160 4 ' position to the current record utilizing its RFA. | : 
; 1100 1161 4 { : 
3; 1101 HB 4 IF .STATUS : 
: 1102 1163 4 THEN F 
: 1103 1164 5§ BEGIN ; 
3 1104 1165 5 3 
: 1105 1166 5 AP = 3; : 
; H's 3 4 14 ; IF .IRABCIRB$W_PUTUP_ID] EQL RMSRECORD_ID() 3 
: 1108 1169 5§ IF .IRABCIRBSL_PUTUP_VBN] EQL RMSRECORD_VBN() 3 
: 1109 1170 § THEN 3 
3; 1110 1171 6 BEGIN : 
31111 1126 6 BBLOCKC.IRABCIRBSL_CURBDB), BDBSV_PRM] = 0; : 
: Wiig 117 g LEAVE GETBACK; 3 
31711 1174 END; 3 
3 1114 1175 «5 END 3 
3 1115 HY 5 . . 3 
3; 1116 1177 | § ! If RMS was unable to position to the current primary data record in : 
31117 1178 5 ! its last known location because of some obscure I/0 error, return | : 
; 1118 1179 5 ! that error; otherwise, a second attempt will be made to position to : 
3 1119 1180 é ' the current record utilizing its RFA. 3 
3; 1120 113 ! 3 
3 1183 11 ¢ 4 ELSE 3 
: 1122 1185 6 IF NOT (.STATUS<0,16> EQL RMSERR(RNF ) 3 
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BEGIN 
RMSCLEAN_BDB(); 
RMSPUTUPB ERROR(); 


9 RETURN .STATUS; 

3 END; 

4 END; 
9 ! RMS was unable to locate the current primary data record in its 
9 ! Last known location although it was able to access the primary data 

9 ! bucket in which it was last found. After clearing the permanence bit 

9 : in the BDB for this primary data bucket and releasing the bucket, RMS 
9 : big ty to poersies to the current primary data record by utilizing 

9 the RFA of the current record. 


oo 


BDB = .IRABCIRB$L_CURBDB); 
BOBLBDB$V_PRM) = 0; 

RMSRLSBKTTO); 

IRABCIRB$B_CACHEFLGS] = CSHSM_LOCK; 


RETURN_ON_ERROR 
CRASEIND BY RAV (. IRABCIRBSL_PUTUP_VBNJ, .IRABCIRB$W_PUTUP_IDJ, 0), 


RMSCLEAN_ BDB(); 
RMSPUTUPD_ERROR () 
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END; ! of block GETBACK 


’ ve re-positioned to the current ——- data record, RMS now replaces 
: the old version of the record with the new version performing any primary 
data bucket splits and primary index updates that are required. 


BEGIN 

LOCAL 
STATUS, 
RECORD. SIZE, 
RECOVH~SIZE: 


! Retrieve the address of the primary data bucket containing the current 
primary data reccrd. 


BDB = .JRABCIRBS$L_CURBDB); 
BKT_ADDR = .BDBCBDBS$L_ADDRI; 


Determine the number of bytes the new version of the record will take vp 
in the bucket, and the number of bytes the new version of the record will 
take up in the bucket including record overhead. Both of these quantites 
are prologue dependent, and the latter also depends upon the attributes 
of the records in the file. 

Also, reevaluate the record id for the record to be updated. It may 
easily have been displaced (as a result of a split, for example) since 
IRB$W_LAST_ID was last saved. We need this id in case the new record 
will Be lafger than the old one, causing a delete + insert operation 
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4] : to be performed. If that happens, we need to use the same record id 
; re ; for the newly inserted record to keep the same RFA. 
4 ! 
4 IF .IFABCIFBSB_PLG_VER] LSSU PLG$C_VER_3 
5 4 THEN 
BEGIN 
t RECORD_SIZE = .IRABCIRB$W_RSZ); 
RECOVH_ SIZE = .RECORD_SIZE + IRCSC_FIXOVHDSZ; 
3 gl FAS IFBSB_RFMORG] NEQU FABSC_FIX 
RECOVH_SIZE = .RECOVH_SIZE + IRC$C_DATSZFLD; 
IRABCIRBSWILAST_IDJ = ,.REC_ADDRCIRC$B_IDJ; 
ELSE 
BEGIN 
! The records in prologue 3 primary data buckets are packed. Record 
! packing includes key compression if it is enabled, and to insure that 
! the compression is done correctly, IRBSL_LST_NCMP is set to the Last 
! known record with a zero front compressed primary key in the current 


bucket. 


IRABCIRBSL_LST_NCMP] = .BKT_ADDR + BKTSC_OVERHDSZ; 
RECORD_SIZE = RMSPACK_REC()3 


RECOVH SIZE = .RECORD SIZE + IRC$C_FIXOVHSZ3; 
IF - IF ABCIFESE_RFMORG] NEQU FABSC_FIX 


(. IFABLIFB$B_RFMORG] EQLU FABSC_FIX 
. 1DX_DFNCIDX$B_DATBKTYP] NEQU IDX$C_NCMPNCMP) 


HEN 
RECOVH_SIZE = .RECOVH SIZE + IRCSC_DATSZFLD; 
PORSL IRS LAST18 = .REC_ADDRCIRCS$W_TDJ; 
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: Attempt to replace the old version of the current primary data record with 
! the new version without splitting the primary data bucket. The routine 

! RMSREPLACE will replace the old version with the new version if the Latter 
! is the same size or smaller than the former. eh ice that, it will delete 
! the old version of the erseety data record, and RMSINSERT_UDR will try and 
} insert the new version into the primary data bucket. 
I 


ao (STATUS = RMSREPLACE (.RECORD_SIZE)) 
BEGIN 


! If the size of the new record is smaller than the old record by one 
! byte and a specially formatted record must be built because the 

! process is currently within a Recovery Unit and the file is RU 

! Journalled, then increase the size of the record by two bytes to. 
tA & for the specially formatted record to contain two record size 
! fields. 

' 

IF .IRABCIRB$V_RU_UPDATE) 
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; 1237 1298 4 THEN 3 
; ; 5 : 9 ? RECOVH_SIZE = .RECOVH_SIZE + IRCSC_DATSZFLD; : 
; 1240 1 St 4 STATUS = RMSINSERT_UDR (RECOVH_SIZE); F 
3 : ¢3 : 8 END; : 
; 124 1304 1 If RMS is successful at replacing the old version of the current primar : 
3 12446 1305 ! data record with the new version without causing a bucket split, then the : 
3 ; re : $6 modified primary data bucket maybe marked dirty and released. : 
3; 124 1308 IF _ .STATUS 3 
3 7 rk 1309 THEN 3 
3: 124 1310 4 eee 3 
3: 1250 1311 4 BDBLBDB$V_DRT) = 1; ; 
3 : 24 : \¢ ? IRABCIRBSC_CURBDB) = 0; : 
3 3 2g P1314 4 RETURN_ON_ERROR (RMS$RLSBKT (0), : 
3: 1254 P1315 4 IN F 
: 1255 P 1 1 4 RMSCLEAN BDB(); $ 
3 1256 P1317 4 RMSPUTUPB_ERROR(); 3 
: 1257 1318 4 END); $ 
3; 1258 1319 4 ; 3 
: 1259 1320 4 ! If an above level bucket was locked due to lockabove optimization, F 
3 iso? 135) : then release it at this time. : 
3 158 1398 4 IF (BDB = .IRABCIRB$L_LOCK_BDBJ) NEQU 0 F 
; 126 1324 4 THEN 3 
> 1264 1325 5 BEGIN 3 
: 1265 1326 5 RMSRLSBKT(0); $ 
3 1606 1327 5 IRABLIRBS$L_LOCK_BDB] = 0; : 
3: 1267 1328 4 ; : 
3 1¢68 1362 4 END : 
3: 1269 1330 4 3 
3: 1270 1331 4 ! RMS was not able to replace the old version of the current primary F 
; 1271 1336 4 ! data record with the new version without ya the primary data : 
3 1e76 13335 4 ! bucket. Therefore, split the primary data bucket inserting the new 3 
3; 127 1334 4 ! version of the current primary data record, and performing any index 3 
: iste 1335 4 ' updates that are required. ; 
3: 1275 1336 4 ! F 
3: 1276 1337 3 ELSE F 
3: 1277 1338 4 BEGIN 3 
3 1¢76 1373 4 ; F 
3 1279 1340 4 ! Perform the split of the primary data level bucket and insert the new : 
3 } BO 1341 2 version of the current primary data record. : 
3 1 ae 1308 4 IRABCIRB$B_SPL_BITS] = 0; : 
: : a7 : rf: ; IRABCIRBSB_KEYSZ] = .IDX_DFNCIDX$B_KEYSZ); ‘ 
3 ! 85 : : rs) ? RETURN_ON_ERROR (RMSPUT_UPD_SPL(.RECOVH_SIZE), ; 
3: 1 Hi P 1 +8 4 RMSCLEAN_BDB(); 3 
3 1288 P1349 4 RMSPUTUPD_ERROR(); ; 
3; 1289 1350 4 END); 3 
3: 1290 1351 4 : . F 
3; 1291 1 26 4 ! Retrieve the BDB for the primary data bucket that has split, which is 3 
3 } 4 ! 27 2 } still locked by this stream. : 
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5 4 BDB = .JRABCIRBSL_CURBDB); 
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If an index update is not required iyst release the or rere primary 
data bucket. The routine RMSPUT_UPO_SPL will clear the bit 
IRBSV_UPDATE if an index update is not required following the primary 


' 
' 
i 
} data Bucket split, and set it if an index update is required. 
if TESTBITCS(IRABCIRB$V_UPDATE]) 

BEGIN 

IRABCIRBS$L_CURBDB) = 0; 

RETURN_ON_ERROR (RMSRLSBKT(0), BEGIN 


RMSCLEAN_BDB(); 
RMSPUTUPD_ERROR() ; 
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! If an above level bucket was locked due to lockabove optimization, 
then release it at this time. 


IF (BDB = .JRABCIRB$L_LOCK_BDB]) NEQ 0 
THEN 


BEGIN 
RMSRLSBKT (0); 
JRABLINOSL LOCK B82 = 0; 
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END 


! The split of the primary data bucket requires updating of the primary 
index. Perform the update at this time. 


ELSE 
BEGIN 


IRABCIRBSB_STOPLEVEL] = 1; 
IRABLIRBSW_SRCHFLAGS] = IRBSM_POSINSERT; 


IF NOT (RABCRABSL_STV] = RMSINSS_OR_1IDX()) 
» TRABCIRBSV_IDX_ERRI = 1; 
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END; 
END; 
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! If there are alternate keys from the old record to be deleted, then the | 
: old record has been saved in the IRB$L_OLDBUF record buffer. fo delete 
: the old SIDRs, the alternate ay of each SIDR to be deleted is in turn 
extracted into keybuffer 2 and the SIDR deletion routine is called. 
if ,BBLOCKC. IRABLIRBSL_UPDBUF ,UPDSV_OLD_DELJ | 

BEGIN | 
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REC_ADDR = .IJRABCIRBSL_OLDBUF] + 2; 
! If the current operation is an UPDATE_IF, then the current record may 
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4 30071382 96:98:26 AMS SREIRN UPDATE .B32;1 
not be the record being updated. Yet, the routine RMSDELETE_SIDR 
operates only on the current record; therefore, setup the récord 
being updated as the current record. Then is no need fo restore these 
jields because they will be zeroed out at the conclusion of the 
operation anyway. 


pp MRSC IRR OY UPDATE IF 2 


BEGIN 
IRABCIRBS$L_UDR_VBN] = .IRABCIRBSL_PUTUP_VBNI; 
any IRB$W_UDR_ID] = .IRABLIRBSW_PUTUP_IDJ; 


a ew ws me 
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! If this file is being Recovery Unit Journalled and the process is 

! currently within a recovery unit the set the IRB$V_RU_DELETE state 
bit so that the SIDRs being deleted are only marked RO_DELETE and no 
space is reclaimed. 


if, JFABCIFBSV_RUPI 
IRABLIRBSV_RU_DELETE) = 1; 


' Loop through the index descriptors deleting those SIDRs that need to 
be deleted. 


WHILE RMSGET_NEXT_KEY() 


if this index has a SIDR which needs to be deleted, then delete 
i — 
if .BBLOCKC.IRABCIRBSL_UPDBUFI + - IDX_DFNCIDX$B_DESC_NOJ, 
UPD$V_OLD_BELJ 
THEN 
BEGIN 


! Extract the alternate key from the unpacked version of the 
old data record, and delete the corresponding SIDR. 


KEYBUF _ADDR(2)); 


IRABCIRBS$SV_RU_DELETE] = 0; 
END; 


: Having successfully completed the SUPDATE, finish up and return success. 
RETURN RMSPUT_UPD_FIN() 
END; 
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COMMAND QUALIFIERS 


D 14 
RMSUPDATE 16- “19 
v04=000 RMSUPDATE38 187808713 
ooBc §86C9 0080 9 B0 8 45 
04 00rs CA 3 1 oS 33$: 
0 A9 5 025 
00 36 0 28 34$: 
3 5 H 025 
0 10 A? 9A 0025¢ 
50 64 AY CO 00260 
EE 60 01 €E1 00264 
5¢ 03 DO 00268 
50 00B4 CA 3C 0026 
60 B940 9F 0027 
00006 20 0274 
5E 04 g 0277 
00006 30 0027A 
D7? 11 0027D 
07 Ad 20 BA 0027F se: 
00006 30 00283 36$: 
SE 04 CO 00286 37$: 
34 BA 00289 
05 00288 
; Routine Size: 652 bytes, Routine Base: RMS$RMS3 + 0237 
: 1403 1464 1 
3 1404 1465 1 END 
; 1405 1466 1 
; 1406 1467 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
:  RMSRMS3 1219 NOVEC,NOWRT, RD, EXE,NOSHR, 
5 Library Statistics 
ee eee ee ee A Sh een Symbols -------- 
3 File Total Loaded Percent 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 107 3 
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6 AX-11 Bliss-32 V4.0-742 
RMS .SRCJRMSUPDATE .B32; 1 


a 


) 
If 

RA 
EXT_KEY 
FN 

, 
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#32 RAB) 
RngbUy COPD _FIN 


# 
#°M<R2,R4G,R5> 


REL, CON, PIC,ALIGN(2) 


Processing 
d Time 


00:00.4 


Page 


dl 
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RMBUPDATE ~1984 02:08:5 AX-11 Bliss-32 v4.0-74 p 5 eer 
v04=000 ioe $8:oeieg = HA " oe | 


1 
RMSUPDATE3B 1 b MS.SRCIRMSUPDATE .B32; 


H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3UPDATE/OBJ=OBJ$:RMSUPDATE MSRC$:RM3UPDATE/UPDATE=(ENH$: RM3UPDATE) 
; Size: 1219 code + 0 data bytes 
605336 : 


: Elapsed Time: 0109.9 
: Lexemes/CPU-Min: 16349 
; eonety Used: 286 pages 
; Compilation Complete 
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